(LAP UNITRES SUBR) 
	(PUSH P 1) 
	(PUSH P 2) 
	(PUSH P 3) 
	(PUSH P 1) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(PUSH P (C 0 0 (QUOTE NIL) 0)) 
	(HLRZ@ 1 -7 P) 
	(CALL 1 (E CADR)) 
	(JUMPN 1 TAG16) 
	(JUMPE 3 TAG13) 
TAG16 	(HRRZ@ 1 -7 P) 
	(HLRZ@ 2 -7 P) 
	(HRRZ@ 2 2) 
	(HLRZ@ 2 2) 
	(CAME 2 1) 
	(JRST 0 TAG17) 
	(MOVE 1 -6 P) 
	(JUMPE 1 TAG13) 
TAG17 	(MOVE 1 -5 P) 
	(JUMPN 1 TAG21) 
	(HLRZ@ 1 -7 P) 
	(CALL 1 (E CADR)) 
	(MOVEM 1 -7 P) 
	(JRST 0 TAG5) 
TAG21 	(HRRZ@ 1 -7 P) 
	(MOVEM 1 -7 P) 
TAG1 	(HLRZ@ 1 -7 P) 
	(MOVEM 1 0 P) 
	(HLRZ@ 1 1) 
	(CAMN 1 (SPECIAL ESCAPE)) 
	(JRST 0 TAG5) 
	(MOVE 1 -5 P) 
	(MOVEM 1 -1 P) 
TAG2 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E CADADR)) 
	(HLRZ@ 2 0 P) 
	(CAME 2 1) 
	(JRST 0 TAG3) 
	(HLRZ@ 1 -1 P) 
	(MOVEI 3 (QUOTE NIL)) 
	(HRRZ@ 2 0 P) 
	(CALL 1 (E CDDADR)) 
	(CALL 3 (E UNI)) 
	(MOVEM 1 -2 P) 
	(JUMPE 1 TAG3) 
	(JUMPE 1 TAG3) 
	(MOVE 1 -4 P) 
	(CALL 1 (E UNIT)) 
	(JUMPE 1 TAG26) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG12) 
TAG26 	(MOVE 2 -7 P) 
	(MOVE 1 -4 P) 
	(CALL 2 (E REDUCER)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG4) 
TAG3 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JUMPN 1 TAG2) 
TAG4 	(HRRZ@ 1 -7 P) 
	(MOVEM 1 -7 P) 
	(JUMPN 1 TAG1) 
	(MOVE 1 -3 P) 
	(JRST 0 TAG12) 
TAG31 
TAG5 	(HLRZ@ 1 -7 P) 
	(HRRZ@ 1 1) 
	(MOVEM 1 0 P) 
	(MOVE 1 -6 P) 
	(MOVEM 1 -1 P) 
TAG6 	(MOVE 1 -1 P) 
	(JUMPN 1 TAG34) 
	(MOVE 1 -3 P) 
	(JRST 0 TAG12) 
TAG34 
TAG7 	(HLRZ@ 1 -1 P) 
	(CALL 1 (E CAADR)) 
	(HLRZ@ 2 0 P) 
	(CAME 2 1) 
	(JRST 0 TAG10) 
	(MOVEI 3 (QUOTE NIL)) 
	(HRRZ@ 2 0 P) 
	(HLRZ@ 1 -1 P) 
	(CALL 1 (E CDADR)) 
	(CALL 3 (E UNI)) 
	(MOVEM 1 -2 P) 
	(JUMPE 1 TAG10) 
	(MOVE 1 -4 P) 
	(CALL 1 (E UNIT)) 
	(JUMPE 1 TAG37) 
	(MOVEI 1 (QUOTE NIL)) 
	(CALL 1 (E NCONS)) 
	(JRST 0 TAG12) 
TAG37 	(MOVE 2 -7 P) 
	(MOVE 1 -4 P) 
	(CALL 2 (E REDUCER)) 
	(MOVE 2 -3 P) 
	(CALL 2 (E CONS)) 
	(MOVEM 1 -3 P) 
	(JRST 0 TAG11) 
TAG10 	(HRRZ@ 1 -1 P) 
	(MOVEM 1 -1 P) 
	(JUMPN 1 TAG7) 
TAG11 	(HRRZ@ 1 -7 P) 
	(MOVEM 1 -7 P) 
	(JUMPN 1 TAG5) 
	(MOVE 1 -3 P) 
	(JRST 0 TAG12) 
TAG42 
TAG13 	(MOVEI 1 (QUOTE NIL)) 
TAG12 	(SUB P (C 0 0 10 10)) 
	(POPJ P) 
	NIL